package Data::Semantic::URI::TestData::http;

use strict;
use warnings;


our $VERSION = '0.02';


no warnings 'qw';    # Possible attempt to put comments in qw() list 

use constant TESTDATA => (
    {
        args => {},
        valid => [ qw(
            http://localhost/
            http://use.perl.org/~hanekomu/journal?entry=12345
        ) ],
        invalid  => [ qw(
            news://localhost/
            http://?123
            https://localhost/
            https://use.perl.org/~hanekomu/journal.txt#foobar
            http://use.perl.org/~hanekomu/journal.txt#foobar
            http://use.perl.org%2F~hanekomu/journal?entry=12345
        ) ],
    },
    {
        args => { scheme => 'https?' },
        valid => [ qw(
            http://localhost/
            http://use.perl.org/~hanekomu/journal?entry=12345
            https://localhost/
            https://use.perl.org/~hanekomu/journal?entry=12345
        ) ],
        invalid  => [ qw(
            news://localhost/
            http://?123
            http://use.perl.org/~hanekomu/journal.txt#foobar
            https://use.perl.org/~hanekomu/journal.txt#foobar
            http://use.perl.org%2F~hanekomu/journal?entry=12345
        ) ],
    },
    {
        args => { scheme => 'https' },
        valid => [ qw(
            https://localhost/
            https://use.perl.org/~hanekomu/journal?entry=12345
        ) ],
        invalid  => [ qw(
            http://localhost/
            http://use.perl.org/~hanekomu/journal?entry=12345
            http://use.perl.org/~hanekomu/journal.txt#foobar
            https://use.perl.org/~hanekomu/journal.txt#foobar
            http://use.perl.org%2F~hanekomu/journal?entry=12345
            http://?123
            news://localhost/
        ) ],
    },
);


1;


__END__

{% PROCESS complete/semantic_testdata %}
